object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 514
  ClientWidth = 788
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseWheel = FormMouseWheel
  PixelsPerInch = 96
  TextHeight = 13
  object Label27: TLabel
    Left = 274
    Top = 328
    Width = 60
    Height = 13
    Caption = 'Motor1 Addr'
  end
  object Label29: TLabel
    Left = 402
    Top = 328
    Width = 60
    Height = 13
    Caption = 'Motor2 Addr'
  end
  object Status: TMemo
    Left = 0
    Top = 352
    Width = 788
    Height = 162
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
    OnDblClick = StatusDblClick
  end
  object Send: TButton
    Left = 568
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Send'
    TabOrder = 1
    OnClick = SendClick
  end
  object ComSetting: TButton
    Left = 120
    Top = 311
    Width = 75
    Height = 25
    Caption = 'Setting COM'
    TabOrder = 2
    OnClick = ComSettingClick
  end
  object Connect: TButton
    Left = 24
    Top = 311
    Width = 75
    Height = 25
    Caption = 'Open COM'
    TabOrder = 3
    OnClick = ConnectClick
  end
  object GroupBox2: TGroupBox
    Left = 394
    Top = 0
    Width = 369
    Height = 145
    Caption = 'Motor Register'
    TabOrder = 4
    object Label6: TLabel
      Left = 16
      Top = 29
      Width = 23
      Height = 13
      Caption = 'Addr'
    end
    object Label7: TLabel
      Left = 76
      Top = 29
      Width = 66
      Height = 13
      Caption = 'Register Addr'
    end
    object Label8: TLabel
      Left = 155
      Top = 29
      Width = 48
      Height = 13
      Caption = 'RegCount'
    end
    object Label9: TLabel
      Left = 216
      Top = 29
      Width = 21
      Height = 13
      Caption = 'CRC'
    end
    object Label10: TLabel
      Left = 16
      Top = 85
      Width = 23
      Height = 13
      Caption = 'Addr'
    end
    object Label11: TLabel
      Left = 76
      Top = 85
      Width = 66
      Height = 13
      Caption = 'Register Addr'
    end
    object Label12: TLabel
      Left = 155
      Top = 85
      Width = 45
      Height = 13
      Caption = 'Reg Data'
    end
    object Label13: TLabel
      Left = 216
      Top = 85
      Width = 21
      Height = 13
      Caption = 'CRC'
    end
    object RegCount: TComboBox
      Left = 155
      Top = 48
      Width = 53
      Height = 21
      ItemIndex = 0
      TabOrder = 0
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8')
    end
    object RegAddr: TEdit
      Left = 76
      Top = 48
      Width = 73
      Height = 21
      TabOrder = 1
      Text = '0011'
    end
    object MotorAddr: TComboBox
      Left = 16
      Top = 48
      Width = 54
      Height = 21
      ItemIndex = 0
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32')
    end
    object ReadReg: TButton
      Left = 271
      Top = 46
      Width = 89
      Height = 25
      Caption = 'Read Registers'
      TabOrder = 3
      OnClick = ReadRegClick
    end
    object ReadCRC: TEdit
      Left = 216
      Top = 48
      Width = 49
      Height = 21
      TabOrder = 4
    end
    object WriteAddr: TComboBox
      Left = 16
      Top = 104
      Width = 54
      Height = 21
      ItemIndex = 0
      TabOrder = 5
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32')
    end
    object WriteRegAddr: TEdit
      Left = 76
      Top = 104
      Width = 73
      Height = 21
      TabOrder = 6
      Text = '0011'
    end
    object WriteCRC: TEdit
      Left = 216
      Top = 104
      Width = 49
      Height = 21
      TabOrder = 7
    end
    object WriteReg: TButton
      Left = 271
      Top = 102
      Width = 89
      Height = 25
      Caption = 'Write Registers'
      TabOrder = 8
      OnClick = WriteRegClick
    end
    object WriteRegData: TEdit
      Left = 155
      Top = 104
      Width = 53
      Height = 21
      TabOrder = 9
      Text = '0011'
    end
  end
  object GroupBox3: TGroupBox
    Left = 394
    Top = 160
    Width = 369
    Height = 145
    Caption = 'Motor Coil'
    TabOrder = 5
    object Label14: TLabel
      Left = 16
      Top = 29
      Width = 23
      Height = 13
      Caption = 'Addr'
    end
    object Label15: TLabel
      Left = 76
      Top = 29
      Width = 66
      Height = 13
      Caption = 'Register Addr'
    end
    object Label16: TLabel
      Left = 155
      Top = 29
      Width = 48
      Height = 13
      Caption = 'RegCount'
    end
    object Label17: TLabel
      Left = 216
      Top = 29
      Width = 21
      Height = 13
      Caption = 'CRC'
    end
    object Label18: TLabel
      Left = 16
      Top = 85
      Width = 23
      Height = 13
      Caption = 'Addr'
    end
    object Label19: TLabel
      Left = 76
      Top = 85
      Width = 66
      Height = 13
      Caption = 'Register Addr'
    end
    object Label20: TLabel
      Left = 155
      Top = 85
      Width = 45
      Height = 13
      Caption = 'Reg Data'
    end
    object Label21: TLabel
      Left = 216
      Top = 85
      Width = 21
      Height = 13
      Caption = 'CRC'
    end
    object RdCoilCnt: TComboBox
      Left = 155
      Top = 48
      Width = 53
      Height = 21
      ItemIndex = 0
      TabOrder = 0
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8')
    end
    object RdCoilNo: TEdit
      Left = 76
      Top = 48
      Width = 73
      Height = 21
      TabOrder = 1
      Text = '0011'
    end
    object RdCoilAddr: TComboBox
      Left = 16
      Top = 48
      Width = 54
      Height = 21
      ItemIndex = 0
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32')
    end
    object RdCoil: TButton
      Left = 271
      Top = 46
      Width = 89
      Height = 25
      Caption = 'Read Coils'
      TabOrder = 3
      OnClick = RdCoilClick
    end
    object RdCoilCRC: TEdit
      Left = 216
      Top = 48
      Width = 49
      Height = 21
      TabOrder = 4
    end
    object WrCoilAddr: TComboBox
      Left = 16
      Top = 104
      Width = 54
      Height = 21
      ItemIndex = 0
      TabOrder = 5
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32')
    end
    object WrCoilNo: TEdit
      Left = 76
      Top = 104
      Width = 73
      Height = 21
      TabOrder = 6
      Text = '0011'
    end
    object WrCoilCRC: TEdit
      Left = 216
      Top = 104
      Width = 49
      Height = 21
      TabOrder = 7
    end
    object WrCoil: TButton
      Left = 271
      Top = 102
      Width = 89
      Height = 25
      Caption = 'Write Coil'
      TabOrder = 8
      OnClick = WrCoilClick
    end
    object WrCoilData: TEdit
      Left = 155
      Top = 104
      Width = 53
      Height = 21
      TabOrder = 9
      Text = '0011'
    end
  end
  object Runbtn: TButton
    Left = 549
    Top = 321
    Width = 75
    Height = 25
    Caption = 'RUN'
    TabOrder = 6
    OnClick = RunbtnClick
  end
  object Stopbnt: TButton
    Left = 665
    Top = 321
    Width = 75
    Height = 25
    Caption = 'STOP'
    TabOrder = 7
    OnClick = StopbntClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 369
    Height = 305
    Caption = 'Mouse'
    TabOrder = 8
    object Label1: TLabel
      Left = 16
      Top = 27
      Width = 54
      Height = 13
      Caption = 'Resolution:'
    end
    object Label2: TLabel
      Left = 119
      Top = 27
      Width = 52
      Height = 13
      Caption = 'counts/mm'
    end
    object XSpeed: TLabel
      Left = 200
      Top = 28
      Width = 44
      Height = 13
      Caption = 'X-Speed:'
    end
    object Label3: TLabel
      Left = 200
      Top = 55
      Width = 44
      Height = 13
      Caption = 'Y-Speed:'
    end
    object Label4: TLabel
      Left = 335
      Top = 28
      Width = 25
      Height = 13
      Caption = 'mm/s'
    end
    object Label5: TLabel
      Left = 335
      Top = 55
      Width = 25
      Height = 13
      Caption = 'mm/s'
    end
    object Label22: TLabel
      Left = 16
      Top = 107
      Width = 64
      Height = 13
      Caption = 'WheelSpeed:'
    end
    object Label23: TLabel
      Left = 16
      Top = 79
      Width = 63
      Height = 13
      Caption = 'SampleTime: '
    end
    object Label24: TLabel
      Left = 126
      Top = 79
      Width = 35
      Height = 13
      Caption = 'Second'
    end
    object Label25: TLabel
      Left = 16
      Top = 150
      Width = 56
      Height = 13
      Caption = 'Max speed:'
    end
    object Label28: TLabel
      Left = 16
      Top = 177
      Width = 52
      Height = 13
      Caption = 'Set speed:'
    end
    object Label26: TLabel
      Left = 16
      Top = 204
      Width = 61
      Height = 13
      Caption = 'Delta speed:'
    end
    object resolution: TComboBox
      Left = 76
      Top = 24
      Width = 37
      Height = 21
      ItemIndex = 2
      TabOrder = 0
      Text = '4'
      Items.Strings = (
        '1'
        '2'
        '4'
        '8')
    end
    object monitor: TCheckBox
      Left = 16
      Top = 51
      Width = 97
      Height = 17
      Caption = 'Monitor mouse'
      TabOrder = 1
    end
    object XDisp: TEdit
      Left = 250
      Top = 25
      Width = 79
      Height = 21
      TabOrder = 2
    end
    object YDisp: TEdit
      Left = 250
      Top = 52
      Width = 79
      Height = 21
      TabOrder = 3
    end
    object Polling: TButton
      Left = 144
      Top = 43
      Width = 75
      Height = 25
      Caption = 'Poll'
      TabOrder = 4
      Visible = False
      OnClick = PollingClick
    end
    object WheelSpeed: TEdit
      Left = 83
      Top = 104
      Width = 78
      Height = 21
      TabOrder = 5
    end
    object SampleTime: TComboBox
      Left = 83
      Top = 76
      Width = 37
      Height = 21
      BiDiMode = bdLeftToRight
      ItemIndex = 2
      ParentBiDiMode = False
      TabOrder = 6
      Text = '3'
      OnChange = SampleTimeChange
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10')
    end
    object MaxSpeedEd: TEdit
      Left = 83
      Top = 147
      Width = 78
      Height = 21
      TabOrder = 7
      Text = '5000'
    end
    object RefSpeedEd: TEdit
      Left = 83
      Top = 174
      Width = 78
      Height = 21
      TabOrder = 8
      Text = '3000'
    end
    object DeltaSpeedEd: TEdit
      Left = 83
      Top = 201
      Width = 78
      Height = 21
      TabOrder = 9
      Text = '80'
    end
    object RefSpeedEdt: TEdit
      Left = 192
      Top = 104
      Width = 121
      Height = 21
      TabOrder = 10
      Text = '40'
    end
  end
  object DevAddr1: TComboBox
    Left = 333
    Top = 325
    Width = 54
    Height = 21
    ItemIndex = 0
    TabOrder = 9
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12'
      '13'
      '14'
      '15'
      '16'
      '17'
      '18'
      '19'
      '20'
      '21'
      '22'
      '23'
      '24'
      '25'
      '26'
      '27'
      '28'
      '29'
      '30'
      '31'
      '32')
  end
  object DevAddr2: TComboBox
    Left = 461
    Top = 325
    Width = 54
    Height = 21
    ItemIndex = 1
    TabOrder = 10
    Text = '2'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12'
      '13'
      '14'
      '15'
      '16'
      '17'
      '18'
      '19'
      '20'
      '21'
      '22'
      '23'
      '24'
      '25'
      '26'
      '27'
      '28'
      '29'
      '30'
      '31'
      '32')
  end
  object SetSpeedBnt: TButton
    Left = 200
    Top = 145
    Width = 75
    Height = 25
    Caption = 'Set Speed'
    TabOrder = 11
    OnClick = SetSpeedBntClick
  end
  object Comm: TComPort
    BaudRate = br9600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    StoredProps = [spBasic]
    TriggersOnRxChar = False
    Left = 752
    Top = 8
  end
  object ComDataPacket1: TComDataPacket
    ComPort = Comm
    OnPacket = ComDataPacket1Packet
    Left = 752
    Top = 56
  end
  object Timeout: TTimer
    Enabled = False
    Interval = 20
    OnTimer = TimeoutTimer
    Left = 712
    Top = 8
  end
  object SampleTimer: TTimer
    Interval = 3000
    OnTimer = SampleTimerTimer
    Left = 128
    Top = 16
  end
end
